home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
tex
/
macros
/
epic
/
picman-fig2.tex
< prev
next >
Wrap
Text File
|
1991-01-29
|
1KB
|
33 lines
\xjunk=60 \yjunk=3
\loop
\drawline(0,0)(\xjunk,\yjunk)
\drawline(0,0)(-\xjunk,\yjunk)
\drawline(0,0)(\xjunk,-\yjunk)
\drawline(0,0)(-\xjunk,-\yjunk)
\put(\xjunk,\yjunk){\plotchar}
\put(-\xjunk,\yjunk){\plotchar}
\put(\xjunk,-\yjunk){\plotchar}
\put(-\xjunk,-\yjunk){\plotchar}
\put(\xjunk,\yjunk){\makebox(8,0)[l]{\ \ (\number\xjunk,\number\yjunk)}}
\put(-\xjunk,\yjunk){\makebox(-4,0)[r]{(\number-\xjunk,\number\yjunk)}}
\put(\xjunk,-\yjunk){\makebox(8,0)[l]{\ \ (\number\xjunk,\number-\yjunk)}}
\put(-\xjunk,-\yjunk){\makebox(-4,0)[r]{(\number-\xjunk,\number-\yjunk)}}
\ifnum\yjunk < 53 \advance\yjunk by 10 %will go till 53.
\repeat
\xjunk=3 \yjunk=60
\loop
\drawline(0,0)(\xjunk,\yjunk)
\drawline(0,0)(-\xjunk,\yjunk)
\drawline(0,0)(\xjunk,-\yjunk)
\drawline(0,0)(-\xjunk,-\yjunk)
\put(\xjunk,\yjunk){\plotchar}
\put(-\xjunk,\yjunk){\plotchar}
\put(\xjunk,-\yjunk){\plotchar}
\put(-\xjunk,-\yjunk){\plotchar}
\put(\xjunk,\yjunk){\makebox(0,7)[t]{(\number\xjunk,\number\yjunk)}}
\put(-\xjunk,\yjunk){\makebox(0,5)[t]{(\number-\xjunk,\number\yjunk)}}
\put(\xjunk,-\yjunk){\makebox(0,-4)[t]{(\number\xjunk,\number-\yjunk)}}
\put(-\xjunk,-\yjunk){\makebox(0,-6)[t]{(\number-\xjunk,\number-\yjunk)}}
\ifnum\xjunk < 53 \advance\xjunk by 10
\repeat